DEFINE VARIABLE vend1 AS CHARACTER.
DEFINE VARIABLE vend2 AS CHARACTER.
    
vend1 = "S28007".
vend2 = "T28007".

FOR EACH prh_hist WHERE prh_rcp_date <= DATE("05/12/31") AND prh_vend = vend1 ,
    EACH tr_hist WHERE tr_nbr = prh_nbr AND tr_line = prh_line AND tr_lot = prh_receiver ,
    EACH po_mstr WHERE po_nbr = prh_nbr 
    BREAK BY prh_nbr BY prh_line:
    
    DISP prh_vend prh_nbr prh_line prh_rcp_date tr_nbr tr_addr po_nbr po_vend.
END.
